Attribute VB_Name = "copy"
Sub copy_to_active_sheet()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub

